home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok63 / m2ced / txt.lha / Time.def < prev    next >
Text File  |  1991-11-13  |  745b  |  25 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    Time
  4.     :Contents.   Anpassung des Module TimerSupports an mein Versionsmodule
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Wuerzburg
  7.     :Copyright.  Shareware
  8.     :Language.   Modula-2
  9.     :Translator. M2Amiga A+L V3.32d
  10.     :System.     $$Date: 15-06-1991  01:41:39
  11.     :System.     $$CompilerRuns #20#
  12.     :History.    V1.0  12-3-1991
  13.  
  14. **********************************************************************)
  15. DEFINITION MODULE Time;
  16.  
  17. TYPE TimeFeld=ARRAY[0..8] OF CHAR;
  18.      (* z.B. 10:30:40 *)
  19.      DateFeld=ARRAY[0..10] OF CHAR;
  20.      (* z.B. 10-03-1991 *)
  21.  
  22. PROCEDURE AskDate(VAR Time:TimeFeld; VAR Date:DateFeld);
  23.  
  24. END Time.
  25.